home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / 1997.ZIP / INPFLD10.ARC / SETCURSR.C < prev    next >
Text File  |  1987-07-20  |  659b  |  21 lines
  1. /* ------------------------------------------------------------ */
  2. /* setcursor - set the cursor size                               */
  3. /*    M. Burton    20 Jul 87    Written for TurboC V1.0 */
  4. /*                                */
  5. /* Inputs -                             */
  6. /*    n    char    number of cursor lines            */
  7. /* ------------------------------------------------------------ */
  8. #include <dos.h>
  9.  
  10. void setcursor(char n)
  11. {
  12.    char top, bottom;
  13.  
  14.    bottom = (peek(0x40,0x49) == 7) ? 13 : 7;
  15.    top = (n <= bottom) ? (bottom - n + 1) : 0;
  16.    _AX = 0x0100;   /* these registers are position sensitive. */
  17.    _CH = top;      /* DO NOT MOVE OR CHANGE THEM */
  18.    _CL = bottom;
  19.    geninterrupt(0x10);
  20. }
  21.